 Wart_str = Fusing(vv , "#.&&")
 Wart_pr = Fusing(i , "#.&&&")                      'zaokrlglanie do dwch miejsc po przecinku wartoci wywietlanych na LCD
 Wart_wat = Fusing(w , "#.&&")